home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1482.dms / var1482.adf / Scripts / whirligig.mco < prev    next >
Text File  |  1994-07-07  |  2KB  |  128 lines
  1. /*
  2. This file exports:
  3.     whirligig.obj    The parent
  4.     wg.gig.obj    The spinnin gig
  5. See just below for surfaces to redefine.
  6. */
  7.  
  8. color wg.stem.surf {
  9.     diff    <.2, .2, .2>
  10.     refl    <.7, .7, .7>
  11. }
  12.  
  13. color wg.crossbar.surf {
  14.     diff    <.2, .2, .2>
  15.     refl    <.7, .7, .7>
  16. }
  17.  
  18. color wg.stub.surf {
  19.     diff    <.2, .2, .2>
  20.     refl    <.7, .7, .7>
  21. }
  22.  
  23. color wg.gig.surf {
  24.     diff    <.2, .2, .2>
  25.     refl    <.7, .7, .7>
  26. }
  27.  
  28. /* ******************************************** */
  29.  
  30. object _wg.stub.obj_
  31.  
  32. slice _wg.stub.slice_ = {
  33.     <.15, 0>,
  34.     <.15, 1>,
  35.     <0, 1.2>
  36. }
  37.     
  38.  
  39. spin {
  40.     loc    <0, 0, 0>
  41.     patt    wg.stub.surf
  42.     slice     _wg.stub.slice_ 
  43. }
  44.  
  45. endobject    /* _wg.stub.obj_ */
  46.  
  47. /* ******************************************** */
  48.  
  49. object wg.gig.obj
  50.  
  51. xrotate _wg.stub.obj_ 90
  52. instance {
  53.     object    _wg.stub.obj_
  54. }
  55. reset _wg.stub.obj_
  56.  
  57. slice _slice1_ = {
  58.     <.2, -1.5>,
  59.     <.2, 1.5>
  60. }
  61.  
  62. spin {
  63.     loc    <0, 0, .9>
  64.     patt    wg.gig.surf
  65.     slice     _slice1_ 
  66. }
  67.  
  68. endobject    /* wg.gig.obj */
  69.  
  70. /* ******************************************** */
  71.  
  72. object _wg.crossbar.obj_
  73.  
  74. slice _wg.crossbar.slice_ = {
  75.     <0, -2.5>,
  76.     <.2, -2.5>,
  77.     <.2, 2.5>,
  78.     <0, 2.5>
  79. }
  80.  
  81. spin {
  82.     loc    <0, 0, 0>
  83.     patt    wg.crossbar.surf
  84.     slice    _wg.crossbar.slice_
  85. }
  86.  
  87. endobject    /* _wg.crossbar.obj_ */
  88.  
  89. /* ******************************************** */
  90.  
  91. object whirligig.obj
  92.  
  93. zrotate _wg.crossbar.obj_ 90
  94. translate _wg.crossbar.obj_ <0, 7, 0>
  95. instance {
  96.     object    _wg.crossbar.obj_
  97. }
  98. reset _wg.crossbar.obj_
  99.  
  100. slice _wg.stem.slice_ = {
  101.     <.5, 0>,
  102.     <0, 8>
  103. }
  104.  
  105. spin {
  106.     loc    <0, 0, 0>
  107.     patt    wg.stem.surf
  108.     slice    _wg.stem.slice_
  109. }
  110.  
  111. translate wg.gig.obj <2.5, 7, 0>
  112. child wg.gig.obj
  113. reset wg.gig.obj
  114.  
  115. yrotate wg.gig.obj 180
  116. translate wg.gig.obj <-2.5, 7, 0>
  117. child wg.gig.obj
  118. reset wg.gig.obj
  119.  
  120. endobject    /* whiligig.obj */
  121.  
  122. /* ******************************************** */
  123.  
  124. /*
  125. killobject _wg.crossbar.obj_
  126. killobject _wg.stub.obj_
  127. */
  128.